home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 16 windows forms / customizedformsdemo / localizedform.vb < prev    next >
Encoding:
Text File  |  2002-03-16  |  16.7 KB  |  248 lines
  1. Public Class LocalizedForm
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Const USE_ITALIAN_CULTURE = False
  5.  
  6. #Region " Windows Form Designer generated code "
  7.  
  8.     Public Sub New()
  9.         MyBase.New()
  10.  
  11. #If USE_ITALIAN_CULTURE Then
  12.         ' Set Italian as the culture of the interactive user.
  13.         SetUICulture("IT")
  14. #End If
  15.  
  16.         'This call is required by the Windows Form Designer.
  17.         InitializeComponent()
  18.     End Sub
  19.  
  20.     'Form overrides dispose to clean up the component list.
  21.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  22.         If disposing Then
  23.             If Not (components Is Nothing) Then
  24.                 components.Dispose()
  25.             End If
  26.         End If
  27.         MyBase.Dispose(disposing)
  28.     End Sub
  29.     Friend WithEvents Label1 As System.Windows.Forms.Label
  30.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  31.     Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
  32.     Friend WithEvents Label2 As System.Windows.Forms.Label
  33.     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
  34.     Friend WithEvents Button1 As System.Windows.Forms.Button
  35.  
  36.     'Required by the Windows Form Designer
  37.     Private components As System.ComponentModel.Container
  38.  
  39.     'NOTE: The following procedure is required by the Windows Form Designer
  40.     'It can be modified using the Windows Form Designer.  
  41.     'Do not modify it using the code editor.
  42.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  43.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(LocalizedForm))
  44.         Me.Label1 = New System.Windows.Forms.Label()
  45.         Me.Label2 = New System.Windows.Forms.Label()
  46.         Me.Button1 = New System.Windows.Forms.Button()
  47.         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
  48.         Me.TextBox2 = New System.Windows.Forms.TextBox()
  49.         Me.TextBox1 = New System.Windows.Forms.TextBox()
  50.         Me.SuspendLayout()
  51.         '
  52.         'Label1
  53.         '
  54.         Me.Label1.AccessibleDescription = CType(resources.GetObject("Label1.AccessibleDescription"), String)
  55.         Me.Label1.AccessibleName = CType(resources.GetObject("Label1.AccessibleName"), String)
  56.         Me.Label1.Anchor = CType(resources.GetObject("Label1.Anchor"), System.Windows.Forms.AnchorStyles)
  57.         Me.Label1.AutoSize = CType(resources.GetObject("Label1.AutoSize"), Boolean)
  58.         Me.Label1.Dock = CType(resources.GetObject("Label1.Dock"), System.Windows.Forms.DockStyle)
  59.         Me.Label1.Enabled = CType(resources.GetObject("Label1.Enabled"), Boolean)
  60.         Me.Label1.Font = CType(resources.GetObject("Label1.Font"), System.Drawing.Font)
  61.         Me.Label1.Image = CType(resources.GetObject("Label1.Image"), System.Drawing.Image)
  62.         Me.Label1.ImageAlign = CType(resources.GetObject("Label1.ImageAlign"), System.Drawing.ContentAlignment)
  63.         Me.Label1.ImageIndex = CType(resources.GetObject("Label1.ImageIndex"), Integer)
  64.         Me.Label1.ImeMode = CType(resources.GetObject("Label1.ImeMode"), System.Windows.Forms.ImeMode)
  65.         Me.Label1.Location = CType(resources.GetObject("Label1.Location"), System.Drawing.Point)
  66.         Me.Label1.Name = "Label1"
  67.         Me.Label1.RightToLeft = CType(resources.GetObject("Label1.RightToLeft"), System.Windows.Forms.RightToLeft)
  68.         Me.Label1.Size = CType(resources.GetObject("Label1.Size"), System.Drawing.Size)
  69.         Me.Label1.TabIndex = CType(resources.GetObject("Label1.TabIndex"), Integer)
  70.         Me.Label1.Text = resources.GetString("Label1.Text")
  71.         Me.Label1.TextAlign = CType(resources.GetObject("Label1.TextAlign"), System.Drawing.ContentAlignment)
  72.         Me.Label1.Visible = CType(resources.GetObject("Label1.Visible"), Boolean)
  73.         '
  74.         'Label2
  75.         '
  76.         Me.Label2.AccessibleDescription = CType(resources.GetObject("Label2.AccessibleDescription"), String)
  77.         Me.Label2.AccessibleName = CType(resources.GetObject("Label2.AccessibleName"), String)
  78.         Me.Label2.Anchor = CType(resources.GetObject("Label2.Anchor"), System.Windows.Forms.AnchorStyles)
  79.         Me.Label2.AutoSize = CType(resources.GetObject("Label2.AutoSize"), Boolean)
  80.         Me.Label2.Dock = CType(resources.GetObject("Label2.Dock"), System.Windows.Forms.DockStyle)
  81.         Me.Label2.Enabled = CType(resources.GetObject("Label2.Enabled"), Boolean)
  82.         Me.Label2.Font = CType(resources.GetObject("Label2.Font"), System.Drawing.Font)
  83.         Me.Label2.Image = CType(resources.GetObject("Label2.Image"), System.Drawing.Image)
  84.         Me.Label2.ImageAlign = CType(resources.GetObject("Label2.ImageAlign"), System.Drawing.ContentAlignment)
  85.         Me.Label2.ImageIndex = CType(resources.GetObject("Label2.ImageIndex"), Integer)
  86.         Me.Label2.ImeMode = CType(resources.GetObject("Label2.ImeMode"), System.Windows.Forms.ImeMode)
  87.         Me.Label2.Location = CType(resources.GetObject("Label2.Location"), System.Drawing.Point)
  88.         Me.Label2.Name = "Label2"
  89.         Me.Label2.RightToLeft = CType(resources.GetObject("Label2.RightToLeft"), System.Windows.Forms.RightToLeft)
  90.         Me.Label2.Size = CType(resources.GetObject("Label2.Size"), System.Drawing.Size)
  91.         Me.Label2.TabIndex = CType(resources.GetObject("Label2.TabIndex"), Integer)
  92.         Me.Label2.Text = resources.GetString("Label2.Text")
  93.         Me.Label2.TextAlign = CType(resources.GetObject("Label2.TextAlign"), System.Drawing.ContentAlignment)
  94.         Me.Label2.Visible = CType(resources.GetObject("Label2.Visible"), Boolean)
  95.         '
  96.         'Button1
  97.         '
  98.         Me.Button1.AccessibleDescription = CType(resources.GetObject("Button1.AccessibleDescription"), String)
  99.         Me.Button1.AccessibleName = CType(resources.GetObject("Button1.AccessibleName"), String)
  100.         Me.Button1.Anchor = CType(resources.GetObject("Button1.Anchor"), System.Windows.Forms.AnchorStyles)
  101.         Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
  102.         Me.Button1.Dock = CType(resources.GetObject("Button1.Dock"), System.Windows.Forms.DockStyle)
  103.         Me.Button1.Enabled = CType(resources.GetObject("Button1.Enabled"), Boolean)
  104.         Me.Button1.FlatStyle = CType(resources.GetObject("Button1.FlatStyle"), System.Windows.Forms.FlatStyle)
  105.         Me.Button1.Font = CType(resources.GetObject("Button1.Font"), System.Drawing.Font)
  106.         Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
  107.         Me.Button1.ImageAlign = CType(resources.GetObject("Button1.ImageAlign"), System.Drawing.ContentAlignment)
  108.         Me.Button1.ImageIndex = CType(resources.GetObject("Button1.ImageIndex"), Integer)
  109.         Me.Button1.ImeMode = CType(resources.GetObject("Button1.ImeMode"), System.Windows.Forms.ImeMode)
  110.         Me.Button1.Location = CType(resources.GetObject("Button1.Location"), System.Drawing.Point)
  111.         Me.Button1.Name = "Button1"
  112.         Me.Button1.RightToLeft = CType(resources.GetObject("Button1.RightToLeft"), System.Windows.Forms.RightToLeft)
  113.         Me.Button1.Size = CType(resources.GetObject("Button1.Size"), System.Drawing.Size)
  114.         Me.Button1.TabIndex = CType(resources.GetObject("Button1.TabIndex"), Integer)
  115.         Me.Button1.Text = resources.GetString("Button1.Text")
  116.         Me.Button1.TextAlign = CType(resources.GetObject("Button1.TextAlign"), System.Drawing.ContentAlignment)
  117.         Me.Button1.Visible = CType(resources.GetObject("Button1.Visible"), Boolean)
  118.         '
  119.         'PictureBox1
  120.         '
  121.         Me.PictureBox1.AccessibleDescription = CType(resources.GetObject("PictureBox1.AccessibleDescription"), String)
  122.         Me.PictureBox1.AccessibleName = CType(resources.GetObject("PictureBox1.AccessibleName"), String)
  123.         Me.PictureBox1.Anchor = CType(resources.GetObject("PictureBox1.Anchor"), System.Windows.Forms.AnchorStyles)
  124.         Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
  125.         Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  126.         Me.PictureBox1.Dock = CType(resources.GetObject("PictureBox1.Dock"), System.Windows.Forms.DockStyle)
  127.         Me.PictureBox1.Enabled = CType(resources.GetObject("PictureBox1.Enabled"), Boolean)
  128.         Me.PictureBox1.Font = CType(resources.GetObject("PictureBox1.Font"), System.Drawing.Font)
  129.         Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
  130.         Me.PictureBox1.ImeMode = CType(resources.GetObject("PictureBox1.ImeMode"), System.Windows.Forms.ImeMode)
  131.         Me.PictureBox1.Location = CType(resources.GetObject("PictureBox1.Location"), System.Drawing.Point)
  132.         Me.PictureBox1.Name = "PictureBox1"
  133.         Me.PictureBox1.RightToLeft = CType(resources.GetObject("PictureBox1.RightToLeft"), System.Windows.Forms.RightToLeft)
  134.         Me.PictureBox1.Size = CType(resources.GetObject("PictureBox1.Size"), System.Drawing.Size)
  135.         Me.PictureBox1.SizeMode = CType(resources.GetObject("PictureBox1.SizeMode"), System.Windows.Forms.PictureBoxSizeMode)
  136.         Me.PictureBox1.TabIndex = CType(resources.GetObject("PictureBox1.TabIndex"), Integer)
  137.         Me.PictureBox1.TabStop = False
  138.         Me.PictureBox1.Text = resources.GetString("PictureBox1.Text")
  139.         Me.PictureBox1.Visible = CType(resources.GetObject("PictureBox1.Visible"), Boolean)
  140.         '
  141.         'TextBox2
  142.         '
  143.         Me.TextBox2.AccessibleDescription = CType(resources.GetObject("TextBox2.AccessibleDescription"), String)
  144.         Me.TextBox2.AccessibleName = CType(resources.GetObject("TextBox2.AccessibleName"), String)
  145.         Me.TextBox2.Anchor = CType(resources.GetObject("TextBox2.Anchor"), System.Windows.Forms.AnchorStyles)
  146.         Me.TextBox2.AutoSize = CType(resources.GetObject("TextBox2.AutoSize"), Boolean)
  147.         Me.TextBox2.BackgroundImage = CType(resources.GetObject("TextBox2.BackgroundImage"), System.Drawing.Image)
  148.         Me.TextBox2.Dock = CType(resources.GetObject("TextBox2.Dock"), System.Windows.Forms.DockStyle)
  149.         Me.TextBox2.Enabled = CType(resources.GetObject("TextBox2.Enabled"), Boolean)
  150.         Me.TextBox2.Font = CType(resources.GetObject("TextBox2.Font"), System.Drawing.Font)
  151.         Me.TextBox2.ImeMode = CType(resources.GetObject("TextBox2.ImeMode"), System.Windows.Forms.ImeMode)
  152.         Me.TextBox2.Location = CType(resources.GetObject("TextBox2.Location"), System.Drawing.Point)
  153.         Me.TextBox2.MaxLength = CType(resources.GetObject("TextBox2.MaxLength"), Integer)
  154.         Me.TextBox2.Multiline = CType(resources.GetObject("TextBox2.Multiline"), Boolean)
  155.         Me.TextBox2.Name = "TextBox2"
  156.         Me.TextBox2.PasswordChar = CType(resources.GetObject("TextBox2.PasswordChar"), Char)
  157.         Me.TextBox2.RightToLeft = CType(resources.GetObject("TextBox2.RightToLeft"), System.Windows.Forms.RightToLeft)
  158.         Me.TextBox2.ScrollBars = CType(resources.GetObject("TextBox2.ScrollBars"), System.Windows.Forms.ScrollBars)
  159.         Me.TextBox2.Size = CType(resources.GetObject("TextBox2.Size"), System.Drawing.Size)
  160.         Me.TextBox2.TabIndex = CType(resources.GetObject("TextBox2.TabIndex"), Integer)
  161.         Me.TextBox2.Text = resources.GetString("TextBox2.Text")
  162.         Me.TextBox2.TextAlign = CType(resources.GetObject("TextBox2.TextAlign"), System.Windows.Forms.HorizontalAlignment)
  163.         Me.TextBox2.Visible = CType(resources.GetObject("TextBox2.Visible"), Boolean)
  164.         Me.TextBox2.WordWrap = CType(resources.GetObject("TextBox2.WordWrap"), Boolean)
  165.         '
  166.         'TextBox1
  167.         '
  168.         Me.TextBox1.AccessibleDescription = CType(resources.GetObject("TextBox1.AccessibleDescription"), String)
  169.         Me.TextBox1.AccessibleName = CType(resources.GetObject("TextBox1.AccessibleName"), String)
  170.         Me.TextBox1.Anchor = CType(resources.GetObject("TextBox1.Anchor"), System.Windows.Forms.AnchorStyles)
  171.         Me.TextBox1.AutoSize = CType(resources.GetObject("TextBox1.AutoSize"), Boolean)
  172.         Me.TextBox1.BackgroundImage = CType(resources.GetObject("TextBox1.BackgroundImage"), System.Drawing.Image)
  173.         Me.TextBox1.Dock = CType(resources.GetObject("TextBox1.Dock"), System.Windows.Forms.DockStyle)
  174.         Me.TextBox1.Enabled = CType(resources.GetObject("TextBox1.Enabled"), Boolean)
  175.         Me.TextBox1.Font = CType(resources.GetObject("TextBox1.Font"), System.Drawing.Font)
  176.         Me.TextBox1.ImeMode = CType(resources.GetObject("TextBox1.ImeMode"), System.Windows.Forms.ImeMode)
  177.         Me.TextBox1.Location = CType(resources.GetObject("TextBox1.Location"), System.Drawing.Point)
  178.         Me.TextBox1.MaxLength = CType(resources.GetObject("TextBox1.MaxLength"), Integer)
  179.         Me.TextBox1.Multiline = CType(resources.GetObject("TextBox1.Multiline"), Boolean)
  180.         Me.TextBox1.Name = "TextBox1"
  181.         Me.TextBox1.PasswordChar = CType(resources.GetObject("TextBox1.PasswordChar"), Char)
  182.         Me.TextBox1.RightToLeft = CType(resources.GetObject("TextBox1.RightToLeft"), System.Windows.Forms.RightToLeft)
  183.         Me.TextBox1.ScrollBars = CType(resources.GetObject("TextBox1.ScrollBars"), System.Windows.Forms.ScrollBars)
  184.         Me.TextBox1.Size = CType(resources.GetObject("TextBox1.Size"), System.Drawing.Size)
  185.         Me.TextBox1.TabIndex = CType(resources.GetObject("TextBox1.TabIndex"), Integer)
  186.         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
  187.         Me.TextBox1.TextAlign = CType(resources.GetObject("TextBox1.TextAlign"), System.Windows.Forms.HorizontalAlignment)
  188.         Me.TextBox1.Visible = CType(resources.GetObject("TextBox1.Visible"), Boolean)
  189.         Me.TextBox1.WordWrap = CType(resources.GetObject("TextBox1.WordWrap"), Boolean)
  190.         '
  191.         'LocalizedForm
  192.         '
  193.         Me.AccessibleDescription = CType(resources.GetObject("$this.AccessibleDescription"), String)
  194.         Me.AccessibleName = CType(resources.GetObject("$this.AccessibleName"), String)
  195.         Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
  196.         Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
  197.         Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
  198.         Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
  199.         Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
  200.         Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
  201.         Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
  202.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.PictureBox1, Me.TextBox2, Me.Label2, Me.TextBox1, Me.Label1})
  203.         Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
  204.         Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
  205.         Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
  206.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  207.         Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
  208.         Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
  209.         Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
  210.         Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
  211.         Me.Name = "LocalizedForm"
  212.         Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
  213.         Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
  214.         Me.Text = resources.GetString("$this.Text")
  215.         Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
  216.         Me.ResumeLayout(False)
  217.  
  218.     End Sub
  219.  
  220. #End Region
  221.  
  222.     ' when the picture box is clicked, a string is retrieved from
  223.     ' the resource file
  224.  
  225.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  226.         ' get a reference to the ResourceManager for this form
  227.         Dim resources As New System.Resources.ResourceManager(Me.GetType)
  228.         ' read the name of the capital city
  229.         Dim capitalCity As String
  230.         capitalCity = CStr(resources.GetObject("Nation.CapitalCity"))
  231.         ' display it
  232.         MessageBox.Show("The capital is " & capitalCity, "Demo", MessageBoxButtons.OK, MessageBoxIcon.Information)
  233.     End Sub
  234.  
  235. End Class
  236.  
  237. Module CultureProcedures
  238.  
  239.     ' enforce the requested culture 
  240.  
  241.     Sub SetUICulture(ByVal culture As String)
  242.         Try
  243.             System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(culture)
  244.         Catch
  245.             MessageBox.Show("Locale '" & culture & "' isn't supported", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  246.         End Try
  247.     End Sub
  248. End Module